home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / PNL Libraries / MySizeResource.p < prev    next >
Encoding:
Text File  |  1995-10-03  |  1.2 KB  |  57 lines  |  [TEXT/CWIE]
  1. unit MySizeResource;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types;
  7.  
  8.     type
  9.         sizeRsrc = packed record
  10.                 obsolete1: boolean;
  11.                 accept_suspend_events: boolean;
  12.                 obsolete2: boolean;
  13.                 can_background: boolean;
  14.                 does_activate_on_fg_switch: boolean;
  15.                 only_background: boolean;
  16.                 get_front_clicks: boolean;
  17.                 accept_app_died_events: boolean;
  18.                 bit_32_compatibile: boolean;
  19.                 high_level_event_aware: boolean;
  20.                 local_remote_hl_events: boolean;
  21.                 stationary_aware: boolean;
  22.                 use_textedit_services: boolean;
  23.                 reserved1: boolean;
  24.                 reserved2: boolean;
  25.                 reserved3: boolean;
  26.                 size: longint;
  27.                 min_size: longint;
  28.             end;
  29.  
  30.     procedure GetSizeResource (var size: sizeRsrc);
  31.  
  32. implementation
  33.  
  34.     uses
  35.         Resources, Memory;
  36.  
  37.     procedure GetSizeResource (var size: sizeRsrc);
  38.         var
  39.             hhhh: handle;
  40.             p: ^integer;
  41.     begin
  42.         hhhh := Get1Resource('SIZE', 0);
  43.         if (hhhh = nil) | (GetHandleSize(hhhh) <> SizeOf(sizeRsrc)) then begin
  44.             hhhh := Get1Resource('SIZE', -1);
  45.         end;
  46.         if (hhhh = nil) | (GetHandleSize(hhhh) <> SizeOf(sizeRsrc)) then begin
  47.             p := @size;
  48.             p^ := 0;
  49.             size.size := longint(384) * 1024;
  50.             size.min_size := longint(384) * 1024;
  51.         end
  52.         else begin
  53.             BlockMoveData(hhhh^, @size, SizeOf(sizeRsrc));
  54.         end;
  55.     end;
  56.  
  57. end.